home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Micro on the Apple Volume 1 (1981)(Micro Ink)[no boot].zip / Micro on the Apple Volume 1 (1981)(Micro Ink)[no boot].do / CHECK PROTECT.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  36 lines
  1. 10  REM  ************************
  2. 12  REM  *                      *
  3. 14  REM  *   BUSINESS DOLLARS   *
  4. 16  REM  *       AND SENSE      *
  5. 18  REM  *    BARTON BAUERS     *
  6. 20  REM  *                      *
  7. 22  REM  *    CHECK PROTECT     *
  8. 24  REM  *                      *
  9. 26  REM  *  COPYRIGHT (C) 1981  *
  10. 28  REM  *    MICRO INK, INC.   *
  11. 30  REM  * CHELMSFORD, MA 01824 *
  12. 32  REM  *  ALL RIGHTS RESERVED *
  13. 34  REM  *                      *
  14. 36  REM  ************************
  15. 38  REM 
  16. 50  DEF  FN VL(X) =  INT((X +.0001) *100)
  17. 15000 :
  18. 15500  REM  ARGUMENT IS ZZ$
  19. 15505  REM  RESPONSE IS XW$
  20. 15507 :
  21. 15510  IF  LEFT$(ZZ$,1) = "-" GOTO 15560
  22. 15520 M% =  LEN(ZZ$)
  23. 15530 XV$ = "$":XY$ = "."
  24. 15540 XZ$ =  RIGHT$(ZZ$,2)
  25. 15550  ON M% GOTO 15570,15600,15580,15580,15580,15580,15580,15580,15580
  26. 15560  PRINT "ERROR ON INPUT VALUE":XW$ = "": GOTO 15660
  27. 15570 XZ$ = "0" +XZ$: GOTO 15600
  28. 15580 XX$ =  LEFT$(ZZ$,(M% -2))
  29. 15590  GOTO 15620
  30. 15600 XW$ = XV$ +XY$ +XZ$
  31. 15610  GOTO 15630
  32. 15620 XW$ = XV$ +XX$ +XY$ +XZ$
  33. 15630 XT$ = "************************":B = 30 - LEN(XW$)
  34. 15640 XS$ =  RIGHT$(XT$,B)
  35. 15650 XW$ = XS$ +XW$
  36. 15660  RETURN